% Funcion que realizar el upsampled, es un sobremuestreo de la marca de agua.
% realiza un doble upsampled repitiendo las filas y las columnas.

function R=upsampled(I)
[M,N]=size(I);
W2=zeros(M*2,N*2);
[M,N]=size(W2);
  
for i=1:2:M-1
   for j=1:2:N-1
       Num=I(floor(i/2)+1,floor(j/2)+1);
       W2(i,j)=Num;
       W2(i,j+1)=Num;
       W2(i+1,j)=Num;
       W2(i+1,j+1)=Num;
   end
end
  
R=W2;
end